home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 9 / FM Towns Free Software Collection 9.iso / t_os / data / nos109c / help.plp < prev    next >
Encoding:
Text File  |  1994-11-16  |  1.2 KB  |  64 lines
  1. /************************************************
  2. *    ｵﾝﾗｲﾝ･ﾏﾆｭｱﾙを表示する処理 (HELP.PLP)    *
  3. *************************************************/
  4. /*    全てのメモをクローズする    */
  5. %CloseAllMemo{
  6.     case(@mlast!=0 && @mcheck==0,{Yes},{mopen(1)});
  7.     case(@mcheck!=0,{Yes},{loop({mclose(2);im(@mcheck!=0)})});
  8.     };
  9.  
  10. %CloseMEMO{
  11.     [memono]
  12.     case    (@mcheck!=memono,
  13.         {Yes},{CloseAllMemo;mopen(memono);mclose(3)},
  14.         {No},{mclose(3)});
  15.     };
  16.  
  17. /*    NOSHELP.* の説明を表示する    */
  18. %NOTE    {
  19.     [file];
  20.     case    (@mlast==9,
  21.         {Yes},
  22.         {
  23.         select    ({メモ９を削除してもいいですか？},
  24.             999,,
  25.             {  は  い  },{NOTE1(file)},
  26.             {  いいえ  },
  27.             );
  28.         },
  29.         {No},{NOTE1(file)}
  30.         );
  31.     };
  32.  
  33. %NOTE1    {
  34.     [file];
  35.     var    MEMO    [1];
  36.     case    (@mlast==9,
  37.         {Yes},
  38.         {
  39.         CloseAllMemo;
  40.         mclear(MEMO);
  41.         },
  42.         {No},
  43.         {MEMO:=@mlast+1;
  44.         CloseAllMemo;
  45.         madd(MEMO,{\n});
  46.         mclear(MEMO);
  47.         });
  48.     case    (@filechk({NOSHELP}|{.}|file),
  49.         {Yes},{mread({NOSHELP}|{.}|file,MEMO)});
  50.     mopen(MEMO,0,21,639,459,{r});
  51.     loop    ({
  52.         footnote({終了},{b});
  53.         waitx    ();
  54.         case    (@xtype,
  55.             101,{CloseMEMO(MEMO);im({No})},
  56.             201,{CloseMEMO(MEMO);im({No})},
  57.             ,{im({Yes})}
  58.             );
  59.         });
  60.     };
  61.  
  62. NOTE({DOC});
  63. im({No});
  64.